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Program No. F6-10g 

PROGRAM DESCRIPTION; 

Program Title : Sample Statistics Subroutine, ERFP 

Author ; Roebert L, Stearmanj Installation; Booz-Allen Applied Research, Inc. 

_ , - Washington Operations 

Purp ose; To compute the sample mean, sample estimate of the variance and 
standard deviation; and standard error, and its square, of the mean. 

Restrictions: 

The subroutine makes use of the ERFP interpretive and square root sub- 
routines. The observations within the sample must be stored sequentially. 
Storage of computed statistics is as follows: 

Statistic 

n 

t x 
L q + 0109 £x 2 

L + 0111 x ^ilx/n (sample mean) 

L Q + 0113 d.f. = n - 1 (degrees of freedom) 

L + 0115 S.S. =£(x - x) (sum of squares of 

deviations from the mean) 

2 
L + 0117 s a S.S. /d.f. (sample estimate of the 

variance) 

C~2~ " 
L + 0119 s » J s (sample estimate of the 

standard deviation) 

2 2 
L + 0121 s- « s / n (sample estimate of the 

variance of the mean) 
2 





\ + 0123 s- » j s- (standard error of the mean) 
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Method ; 

2 
Following storage of calling sequence information, n,Ix and£x are 
computed with a loop. Upon completion of loop operations the remainder of 
the statistics are computed and stored. The sum of squares of deviations 
from the mean is computed by the following equation 

2 »- 2 
S.S. = £x - (£*) 

n 

rather than by utilizing a second loop to compute square and sum deviations 
from the mean, 

£qdin^Info2^ation^ 

Storage: 

The subroutine requires 1 track and l\$ sectors. 

Calling Sequence: 



Location 


Operation 




•y. 


R 


L 




fX + 1 


U 


L o 


>v+ 2 


Z 


location of ERFP s.r. 


oc+ 3 


Z 


location of x-, (first 

observation in the 
sample) 


c<+ U 


z 


n at q ■ 29 


<.* + 5 


etc. 
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Entry 



Store loc ERFP 



Initialize storage of loc x , n, euid program return 



Store loc x~^ nj 

_____ r _..^ 



Initialize loop for loc x 



Clear counter and summation storage 



"initialize and transfer to ERFP ft 



I 



Bring 1 Add to n and store 

_ - __ 



Add x to £x and store 



_= 



Add x~2 to dT 2 and store 
_£ 



Exit ERFP 



Counter finished?) no- 



J 



yes 
___ 



Initialize and transfer to ERFP 



Compute and store x 



ZX/n 
1 



Compute and store d.f . 



I__ 



Compute and store 
S.S. = Ex i - (2X.) /n 

s 2 = S.S. /d.f. 

s 

2 2, 
s_ = s /n 



Exit ERFP 



Return to program 
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PROGRAM INPUT CODES 



|,Q:0 



etf 

u 

o 

U Q 
O 

O i 






"4 



1*. 



..1. 



LOCA1 ION 



PAGE OF 

1 / 



3/29/60 



INSTRUCTION 
OPERATION i ADDRESS 



j__±P_i_oLi._i.*L , ° 



____1_._1.. 
J I L 



.. L i w J - 1 - ' 

___ ,0 , 2] 

__l_._L._i. , 

__ i0_, h\ 

__i__L_.I _| 

I i.0_i_6{ 

..._.. j P.,. 7 1 

________ 



ib 

j a 

!_ 



I . *5 



0,0 



0[ p.p _ 



0i.I[0 iU 
QlPiQ ! 9 
OiijO L U 

wi U ,_>_ j x 

0i 1;0 i U 



CONTENTS 
OF ADDRESS 



_______ 



n 



_Q__9 



_______ 



1, 1 



_____ 



_______ 2 



J L 



1__3 



__.._„ _L__U 
_l_._l_.___ 



_L i 



L.._l. 



U f Oil j3..i.7 
_sib | 0j Oi ___ 

iZ jJ. 1 l.____. 

.__l__i Pi__i__ x° 

L y| P_Ai_.___ 



______.._._$ 

____;___ 71 

i_ a 1 _ | 
_.i_,ii_? ! 

_i l2_l.O 

i i2.ii; 

i__2,_fj 
-i_-2-L4] 

JL : 2 .1 ^ 

,2_.i. 



.1. 



l - i2 .1 .6 

j- l2___. j 

1... i2__8 



?l 



.!._ i._ .1. 



1 . ibj.Oi.1, Oil 

L.iy..j__L__i.3_3. 
i- .ly {-Oj .__.____. 

i_._y_j_Q_0.:.J_7j 
i xi c j. 6.1.3.: 61 3 
1 ic j_Ci.ii 2i 5 
i 1 _. 1 0i._i_.0i__ 
i iQ : 0,1 ; 0, 6 
1 c ; _ Oil : Ol 7 
i i _ 1.Q1.I j Qi 8 

l. it 4 Oil i___0i_j_ 
L _ic j Oil. J. -ll._ 

i. . lb .; 0:1. 1 0l0] 
J. iy.|..Oi.D.j 2i._9 
i iy |.0i.0i 2i___. 

i x',r \ -0lO i 0i 

1 x. : V i 0:0> 0i 
t " - ' 

I C : fc . 1 I Ol 3 



________> 



return 



loc xl 



loc xl 



junk 



counter 



NOTES 



Store loc ERF. 



Initialization 



store loc xl and n 



initialize loop 



clear counter & eucma- 



tion storag e 



i3 i 0i8i0 

________ __J_Q_LJ___ fi 4_i"), I 1_QlS. 



_____ 



£" sq. 



FORM LP-MV 



PRINTFD IN U.S.A. _________ 



1 

JO. 



initialize ERFP 



________ 



CARRIAGE RETURN 



"OVAL M-=BE_, J1354I X 



L'jf 



«L.fc i 
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PROGRAM INPUT CODES 



J J L 



J I L 



C 

.C 
'-•3 

u. 



is • 

I 



C 

erf 



J L 



J L 



3 



A L 



J L 



A L 



_l__.i _.J .4 

_X_„1 . 



J, L 



A ____ 



-J ' +- 



_L_1_4-_1. .'. 

J L (._._! I 

_L__L— .| I i 



L 



_L_.l I. A ._1_1_ 

-i 1 |_ll J L_ 



_1_ 



i 



J L 



J L 



A I 

L._J L_X-l l 

J 1 L 



J l_ 



J L 



I 1 



!__]_- J J- 



I ■ i 1 



J '_._ 



J 1 L 



_L-.-l_. _J 1 L 

J L j_ I L _ J , — - 



_1. 



_L 



J L 



M— 1 - 



_L 



_L 



_1_ 



LOCATION 



INSTRUCTION 
OPCrUtTon I ADDRESS 



0.0.3 ,2 



____..]_- 



_L__L- 



_*_.l V. 8 ;0 i 0;a 1 0, i i', : 



I.. 



__ 1 
...J 



,3,5 
L? , 6 

,3 9 

,4 . 



8 ,0 

L ..i. i 

8 , x , b 



0. 1 ,0 . ^ 



f 



fin, ~ '. i 1'" ! 7 

8 jO t v,j. , Ui i.p 1 

3 ,0 i X:ra , 0; 0|G i 

8 .0 i O.a , Oi 1..0 j y 



i< .' 



!* I 2 ' 
L* , } 
.1* 1« 



L_l« 



._l.._ii_.7 



4—1-. 1 4 J 9 



_Li_i_°. 



4._.4_._l_j1 i * 

1 .5 1 » 



_L_ 



L 



__J L_J L.._L_ 

1 1 I L-.1- 1 _ 



L_X .J L 



. I 1 



J 1?_J 



5 1 I 



.J 5.. ,3 



.1__P. i 



J_jJ_Ll 



_L_.J.!Ll_ 
J _jJ_L?. 
.1.. 1.6 1° 



.1 __!« 



1 



ft ^ 

[W 



i I 



Y,f ,0 



t 



L 0_j c 



1 ! i.t.- ; ) : ■ ; ■:■' c 
1 j 

1 _ .1.K.4O t i jp.__ 2 



i^-0 ,1^0,1; 
h,0 ,1 



] CONTENTS 

OF ADDRESS 



y.j_Qi_0ilt.i_£ 



i 1_ j_«. p. L-i..J.i.y 

1 .a- . ib-|Q.._i_l.i.O 1 
x..l.. ii'.|Q 1P1S j.0 
..... 1 

.. _____r. |jJiU t i 
t __l _J*i.A+P_P.i0 , 
§ 1.O.1 QjjQ^jjjlaP L 7 
._i_ ii-i- 2 -. 8 i°_l 0xd 4 _0 L l l9l $ 



j_j__j±_l_?. 



8l0±QiC.j.0i1i1 1 1 
8jQ_i pjb 1 OjliO i 5 
8l0.j_Qi3 1 0, l t , 3 

._8_ i 0.. i _0 i _c 4 _p 1 l,I.Ll 
8 Ai. .LP.. f °xl.i 0,7 

8 P LO^d , 0,1, t <:_ 
8 iQ^OjC I 0,1 , 1, 'i 

. 8j0 j 0;0 1 Pil.,0...L.9.. 

3 i c .i _?!?_l_l]5i 



J L 



12 6 

I L_l 



n 



-&X 



^..." 



Zl x sq. 



count er 

1 

/ X] counter 

^n 
loop _ 



S 



Xi ... 

n_ |_ __ 

mean 






NOTES 



n 



H: 



_£ 



j£__a?u_ 



__fflcii. J EaEP„ 



eomter 



. iaiiialiaaJaEE. 



to ERFP 



wean 



d.f. 



Ex 



terap.(£xj sq./^ 
.C.x sq. _ 

/\ around stortge 



ro _p-ii 



d_f. 



S.S. 



a m M.t.A. i-^TJrJ-:. 



CARRIAGE RETURN 
/ = CONDITIONAL STOP COOC 



I 



as 













■ 


u*r-M> cuutNb 


SHfefcl 


1 






prepares torn- . i .. ' . . .... — .,._.... _,,._, ___ ___. __ — _____ — „. ._—___. 

MP-30 SSHHM CMMHEZJ-fSM — PGGL 




1 


JOB NO. 


PROGRAM NO. 

rt-105 


PRO-RAM PMtPAMCB HV: 

R« L. 3t*«u_un 


r ROOK AM CHECKED BY: 

P00X* BrrJUnr 


DATE 

3/29/60 




PHOHLIM: — U^TS-Tr — — — 

autpix statistics anBcorm, kefp 




PROGRAM INPUT CODES 




LOCATION 


INSTRUCTION 


_ 



i- 

(1) 


CONTENTS 
OP ADDRESS 


NOTES 




OPERATION ADDRESS 




r i 




/ 




















/ 


X 






. i OiQ, Oj 0,0, 2 


.5 


i 


,1,0, 


1 1 1 | 1 , 1 




loo IBFP 


•tang* 










% |0,1 


1, 1 1 | 1 1 1 




loo id 












', ,0,2 


1 1 1 | 1 1 | 




■ 


■. 










'. .0,3 


U,0 , 0,0 , 0,0, 0,0 




X i 




1 








l ,o,i» 


,,,,.., ,il 
















i |0,$ 


1 1 1 j 1 1 1 




B 












, ,0,6 


1 1 1 1 1 1 1 
















i .0,7 


1 1 1 1 1 1 1 




X Ex 












, ,0.8 


1 1 1 1 1 1 1 
















i iOi 9 


1 1 1 1 1 1 1 




Zxaq. 












i .1,0 


1 1 1 1 1 1 i 








1 








, ,1,1 


1 1 I j 1 I , 




X 


■»•» 




p 








, .1,2 


■ 
















i ill 3 


1 1 1 1 1 1 1 




d*f. 












. ,1|J» 


1 1 1 1 1 1 1 
















i ill 5 


1 1 1 1 1 1 1 




X 


s.s. 












, ,1, 6 


1 1 I j 1 1 I 






■■ 










. .Ii7 


1 , 1 1 , 1 1 




rarla&M 




if 

? 








i ili 8 










l 








i ill 9 


1 1 1 1 I 1 1 






• 


(«td_ <teT.) 










. .2,0 


1 1 1 1 I 1 1 




__ 




X 








, ,2, 1 


I 1 1 1 , 1 , 




r(man) 


f Yiritntt of --M__) 


- 

p 








i ,2, 2 


1 1 1 1 1 1 1 








1 








, ,2, 3 


,11 III! 




X 


aCwrnxn) 


(tftdL •rrer «f a_M__. 










, ,2, i» 


1 . 1 j 1 1 1 
















, ,2,5 


II 1 1 . 1 1 1 




0«_Bt*F 


>, 










% , ,2,6 


8 4 0, 0,k, 0,1,1 i* 




s»s» 


&*B* (tram 0063. 










■*, .2.7 


8,0, 0,dj 0.1,1 , _ 




z 


d*f. 


. Tirrlmi 


I 








. .2, 8 


8.0. O.kj o,i , 1.7 




T 




f 








, ,2,9 


i ix.r | 0,0, 0,0 






■ 










i .3,0 


8,0i0,e | 0,1, l.p 




• 










i |J|I 


• i0 , 0:b | 0.1 , f,7 




XI T 


t0-»___) 


p 


OttM LP-I4V 

MNTCB IN U.S-U t0gf^ 












• 




CARRIAGE RETUI 
CONDITIONAL BT 


OP COOK 


«•»«. ■••!«, 4tmi« 
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MIOQffAM IhfUT COOff 




LOCATION 


INSTRUCTION J 


CONTINTt 
Or ADOMM 


N O T ■ S 




oecMATioM aocmwss J 






* 


















X 




, 






_0jliJ i2 


8 1 OiOid 1 Oil 1 Oi«J ' 


n 


vdnean) » rarlanoaAi 


i 


r— •* — * — ' — | — ** — l — ' — ' 






|3 ,3 


8, O.O.h , 0,1, 2,1 ' 


▼ 






p»„ 1 , 1..-..A-*. ,1 — _| L * 






,3 |4 


1 ixir , O1O1 0,0 ' 


sq. root 


s(mean) 










,3 ,5 


8, 0,0 ic | Oil 1 2i 3 ' 


X 


s (mean) 


. 










<3 ,S 


, ,x,e j 0,0 , 0i0 ' 




exit ERFP w _ 




i I i 1 I I 1 






_4 J li 


i 1 X jtt 4O1O 1 L Q . ' 

1 -i_j»4 4 .1 ..feik. .' 

1 i..r ,0.0 j 3j 3 ..._' 

„.i___.L_jZL4 r P-i°-i-3_i6. ' 
, , m |0,0 ,2,8 ' 


1 ■ ' 

return to prpj ywi J 




, i — _J L. — 1 1 1 1 — 






,3 ,• 






modify loop addreaa 






.J 




1 ,3 ,t 


X 




.1 - « ; 






_.. 


1 l«*l« 












_X_ii.l]_ 
1 I* I 2 ' 

1 i4 |4 




.... 




— _] L„_i — _| i i 1 » 




1 








X 


to new x 


^ 






— 


, ,x , 8,0,0 ,0,2 


2 at 29 


™ 






1 |4 |S 


till 111 




» 








, ,4 il 


1 1 1 1 1 1 1 








> i 1 1 | 1 ,, J 1 J 


— 


1 |4 ,7 


j 1 1 | 1 1 1 


X 








e— ~ *■ ■"■ ■* * - — t-— * *■ * ■ 1 


._l_J 4»_ 
1 ,4 ,» 


1 , , | 1 , 1 




-A- 








1111111 




^ 


! 




-4- — 




I ,5 ,0 


i 1 1 1 1 i 1 










1 ,5,1 


111,1,1 


■X 










1 ,S ,2 


1 1 i | 1 ..L. A ... 
.„X_4 L_f_i L i 

l._^i J (__1 i .J - ... 

_L_J 1 j — L-l-a.. ,- 

1 1 1 1 1 1 1 






| 






1 |5 1 3 






i 






1 iS |4 










1 ,$ |5 


X 














1 ,S i« 














, ,5,7 


i 1; | | 1 1 1 








1 1 — L, . J 1^1 I 

1 i t 1 i 1 1 




1 .5 ,1 


...I 1 i ] I II 


• air": 










, iS ,1 


1 

1 L 1... .1 . 1 1 1 - 

L _l_. i_ 1 I- -L J 












L l« lO 






A— 




L 1 l 1 1 1 1 




1 1* |1 


7 

_l 1 _ ! j ._ J 1 . . 1 











' l ' t ' ■ ' ' 




i- ,« |2 


„ i 1 ! | ! , ,1 J_ 








1 1 1 1 t t 1 




1 i« 1? 


\ 1 • ! . . I I I 1 
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